Chip 2004 September (Special)/Chip-Special_2004-09_Digitalni-Hudba.bin/hudba/earmaster/earpro4setup.exe/{app}/ear40.exe/0/RCDATA/TCHORDOPS/TCHORDOPS.txt

Text File | 2003-04-03 | 14KB | 497 lines

object ChordOps: TChordOps
  Left = 291
  Top = 179
  BorderIcons = [biHelp]
  BorderStyle = bsNone
  ClientHeight = 488
  ClientWidth = 651
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = True
  Position = poDefault
  Scaled = False
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnMouseWheelDown = FormMouseWheelDown
  OnMouseWheelUp = FormMouseWheelUp
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 19
  object Image1: TImage
    Left = 236
    Top = 460
    Width = 209
    Height = 20
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 2
    Width = 649
    Height = 455
    BevelInner = bvLowered
    TabOrder = 0
    object SpeedButton5: TSpeedButton
      Left = 602
      Top = 426
      Width = 37
      Height = 21
      Hint = 'Restore to previous settings'
      Flat = True
      Glyph.Data = {
        BE000000424DBE0000000000000076000000280000000E000000090000000100
        04000000000048000000000000000000000010000000100000007B0000007B7B
        7B00BDBDBD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222222222
        2200222222222210220020000022222012002000022222220200200022222222
        0200200202222222020020222002222012002222222000012200222222222222
        2200}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton5Click
    end
    object GroupBox2: TGroupBox
      Left = 12
      Top = 200
      Width = 217
      Height = 160
      Caption = 'GroupBox2 Root movement'
      TabOrder = 0
      object PaintBox1: TPaintBox
        Left = 10
        Top = 79
        Width = 136
        Height = 129
        ParentShowHint = False
        ShowHint = True
        OnMouseDown = PaintBox1MouseDown
        OnMouseMove = PaintBox1MouseMove
        OnMouseUp = PaintBox1MouseUp
        OnPaint = PaintBox1Paint
      end
      object Label1: TLabel
        Left = 10
        Top = 58
        Width = 157
        Height = 19
        AutoSize = False
        Caption = 'Upper and lower limit:'
        Layout = tlCenter
      end
      object ComboBox1: TComboBox
        Left = 10
        Top = 23
        Width = 189
        Height = 27
        Style = csDropDownList
        ItemHeight = 19
        Items.Strings = (
          'Random'
          ''
          '-- CYCLIC ----------------------'
          'Ascending 5th'
          'Descending 5th'
          'Ascending minor 3th'
          'Descending minor 3th'
          'Ascending 2nd'
          'Descending 2nd'
          ''
          '-- SAME TONE --------------'
          'C'
          'C#/Db'
          'D'
          'D#/Eb'
          'E'
          'F'
          'F#/Gb'
          'G'
          'G#/Ab'
          'A'
          'A#/Bb'
          'B'
          ''
          '-- SAME KEY ---------------'
          'Gb/eb (6b)'
          'Db/bb (5b)'
          'Ab/f (4b)'
          'Eb/c (3b)'
          'Bb/g (2b)'
          'F/d (b)'
          'C/a '
          'G/e (#)'
          'D/b (2#)'
          'A/f# (3#)'
          'E/c# (4#)'
          'H/g# (5#)')
        TabOrder = 0
        OnChange = ComboBox1Change
      end
    end
    object Panel3: TPanel
      Left = 318
      Top = 188
      Width = 119
      Height = 34
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object SpeedButton1: TSpeedButton
        Left = 60
        Top = 5
        Width = 26
        Height = 24
        Hint = 'Compact view'
        AllowAllUp = True
        GroupIndex = 1
        Flat = True
        Glyph.Data = {
          42010000424D4201000000000000760000002800000011000000110000000100
          040000000000CC00000000000000000000001000000010000000000000000080
          000084848400CECECE0000FF0000FFFF8000FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00555000000005
          5555500000005550006000055555500000005555550655555555500000005555
          5560555555555000000055555000000005555000000055550323232320555000
          0000555500000000305550000000555555005550205550000000555555005550
          3055500000005555500005502055500000005555500005503055500000005555
          5555555020555000000055555555555030555000000055555000055020555000
          0000555500000000305550000000555503232323055550000000555550000000
          555550000000}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton1Click
      end
      object SpeedButton3: TSpeedButton
        Left = 5
        Top = 5
        Width = 26
        Height = 24
        Hint = 'Select all'
        Flat = True
        Glyph.Data = {
          42010000424D4201000000000000760000002800000012000000110000000100
          040000000000CC00000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF44F
          FFFFFF000000FFFFFFFF4224FFFFFF000000FFFFFFF422224FFFFF000000FFFF
          FF422A2224FFFF000000FFFFFFA2AFA224FFFF000000FFFFFFFAFFFA224FFF00
          0000FFF44FFFFFFFA224FF000000FF4224FFFFFFFA224F000000F422224FFFFF
          FFA224000000422A2224FFFFFFFA24000000A2AFA224FFFFFFFFAA000000FAFF
          FA224FFFFFFFFF000000FFFFFFA224FFFFFFFF000000FFFFFFFA224FFFFFFF00
          0000FFFFFFFFA224FFFFFF000000FFFFFFFFFA24FFFFFF000000FFFFFFFFFFAA
          FFFFFF000000}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton3Click
      end
      object SpeedButton2: TSpeedButton
        Left = 31
        Top = 5
        Width = 26
        Height = 24
        Hint = 'Deselect all'
        Flat = True
        Glyph.Data = {
          B6020000424DB60200000000000036000000280000000D000000100000000100
          1800000000008002000000000000000000000000000000000000FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080808080808080FFFFFFFFFF
          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8080800000800000FF0000FF
          000080000080FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000080FF
          FFFFFFFFFFFFFFFF00008000008080808000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FF0000FF808080FFFFFFFFFFFF000080000080FFFFFF00008000FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF0000FF808080FFFFFF000080000080FFFFFFFFFFFF0000
          8000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF000080000080000080FFFFFF
          FFFFFF0000FF00008000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00008000
          0080FFFFFFFFFFFF80808000008080808000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFF0000FF0000800000800000800000FFFFFFFF00FFFFFFFFFFFF
          FFFFFF808080808080808080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FF00FFFFFF8080800000800000FF0000FF000080000080FFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF00FFFFFF000080FFFFFFFFFFFFFFFFFF00008000008080
          8080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF808080FFFFFFFFFFFF0000
          80000080FFFFFF000080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF808080
          FFFFFF000080000080FFFFFFFFFFFF000080FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FF000000FF000080000080000080FFFFFFFFFFFF0000FF000080FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF00FFFFFF000080000080FFFFFFFFFFFF80808000008080
          8080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF0000FF0000800000
          800000800000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton2Click
      end
      object SpeedButton4: TSpeedButton
        Left = 89
        Top = 5
        Width = 26
        Height = 24
        Hint = 'Add new'
        Caption = '+'
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -23
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Layout = blGlyphBottom
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton4Click
      end
    end
    object DrawGrid1: TMyDrawGrid
      Left = 11
      Top = 11
      Width = 426
      Height = 179
      Hint = 'Click to change'
      ColCount = 4
      DefaultColWidth = 100
      DefaultRowHeight = 42
      DefaultDrawing = False
      FixedCols = 0
      RowCount = 17
      Options = [goFixedVertLine, goFixedHorzLine, goHorzLine, goRowSelect, goThumbTracking]
      ParentShowHint = False
      ScrollBars = ssVertical
      ShowHint = False
      TabOrder = 2
      OnDrawCell = DrawGrid1DrawCell
      OnMouseDown = DrawGrid1MouseDown
      OnMouseMove = DrawGrid1MouseMove
      OnMouseUp = DrawGrid1MouseUp
      OnMouseWheelDown = DrawGrid1MouseWheelDown
      OnMouseWheelUp = DrawGrid1MouseWheelUp
    end
    object Panel4: TPanel
      Left = 449
      Top = 3
      Width = 190
      Height = 310
      BevelOuter = bvNone
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      object Bevel1: TBevel
        Left = 1
        Top = 8
        Width = 188
        Height = 13
        Shape = bsTopLine
      end
      object Label2: TLabel
        Left = 0
        Top = -2
        Width = 56
        Height = 23
        AutoSize = False
        Caption = 'Playstyl'
        Layout = tlCenter
      end
      object Bevel2: TBevel
        Left = 0
        Top = 86
        Width = 187
        Height = 7
        Shape = bsTopLine
      end
      object Label3: TLabel
        Left = 7
        Top = 264
        Width = 181
        Height = 25
        AutoSize = False
        Caption = 'Inversions'
        Layout = tlCenter
      end
      object Akk_SimulCheck: TCheckBox
        Left = 7
        Top = 19
        Width = 179
        Height = 19
        Caption = 'Simultanious'
        TabOrder = 0
      end
      object Akk_OpCheck: TCheckBox
        Left = 7
        Top = 37
        Width = 179
        Height = 19
        Caption = 'Arp. up'
        TabOrder = 1
      end
      object Akk_NedCheck: TCheckBox
        Left = 7
        Top = 56
        Width = 179
        Height = 19
        Caption = 'Arp. down'
        TabOrder = 2
      end
      object CheckBox1: TCheckBox
        Left = 7
        Top = 96
        Width = 179
        Height = 19
        Caption = 'Commontone'
        TabOrder = 3
      end
      object CheckBox2: TCheckBox
        Left = 7
        Top = 140
        Width = 179
        Height = 19
        Caption = 'Show key signature'
        TabOrder = 4
      end
      object CheckBox6: TCheckBox
        Left = 7
        Top = 165
        Width = 179
        Height = 19
        Caption = 'Play tone on click'
        TabOrder = 5
      end
      object CheckBox7: TCheckBox
        Left = 7
        Top = 121
        Width = 179
        Height = 19
        Caption = 'Show first tone'
        TabOrder = 6
      end
      object CheckBox8: TCheckBox
        Left = 7
        Top = 184
        Width = 179
        Height = 19
        Caption = 'Play tonic'
        TabOrder = 7
        OnClick = CheckBox8Click
      end
      object CheckBox9: TCheckBox
        Left = 7
        Top = 95
        Width = 179
        Height = 19
        Caption = 'AutoAnswer'
        TabOrder = 8
      end
      object RadioButton5: TRadioButton
        Left = 27
        Top = 202
        Width = 159
        Height = 17
        Caption = 'Base tones'
        Checked = True
        TabOrder = 9
        TabStop = True
      end
      object RadioButton6: TRadioButton
        Left = 27
        Top = 218
        Width = 159
        Height = 17
        Caption = 'Cadence'
        TabOrder = 10
      end
      object CheckBox15: TCheckBox
        Left = 7
        Top = 241
        Width = 179
        Height = 17
        Caption = 'Add root basetone'
        TabOrder = 11
      end
      object ComboBox2: TComboBox
        Left = 7
        Top = 284
        Width = 181
        Height = 27
        Style = csDropDownList
        ItemHeight = 19
        Items.Strings = (
          'All chords in root position'
          'Last chord in root position'
          'Random inversions')
        TabOrder = 12
      end
    end
    object Panel5: TPanel
      Left = 449
      Top = 331
      Width = 190
      Height = 91
      BevelOuter = bvNone
      Caption = 'Panel5'
      TabOrder = 4
      object Bevel3: TBevel
        Left = 1
        Top = 8
        Width = 195
        Height = 13
        Shape = bsTopLine
      end
      object CheckBox5: TCheckBox
        Left = 5
        Top = 1
        Width = 92
        Height = 17
        Caption = 'Lock'
        TabOrder = 0
        OnClick = CheckBox5Click
      end
      object CheckBox10: TCheckBox
        Left = 11
        Top = 19
        Width = 175
        Height = 17
        Caption = 'by Name'
        TabOrder = 1
      end
      object CheckBox11: TCheckBox
        Left = 11
        Top = 36
        Width = 175
        Height = 17
        Caption = 'on Piano'
        TabOrder = 2
      end
      object CheckBox12: TCheckBox
        Left = 11
        Top = 70
        Width = 175
        Height = 17
        Caption = 'on Notesheet'
        TabOrder = 3
      end
      object CheckBox13: TCheckBox
        Left = 11
        Top = 53
        Width = 175
        Height = 17
        Caption = 'on Guitar'
        TabOrder = 4
      end
    end
  end
  object CheckBox3: TCheckBox
    Left = 484
    Top = 459
    Width = 176
    Height = 17
    Caption = 'Answer in C'
    TabOrder = 1
    Visible = False
  end
end